home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / basic / udpchat / old_stuff / udpfuncsv1.1.bb2 < prev    next >
Unknown  |  1999-05-14  |  3.3 KB
view JSON data     |     view as text     |     open on a Mac     |     open on a PC

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: ';-----------------------------------------------------------' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 3b 20 20 |--------|----.;  |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 55 44 50 5f |        |    UDP_|
|00000050| 46 75 6e 63 73 20 20 56 | 31 2e 31 20 62 61 73 65 |Funcs  V|1.1 base|
|00000060| 64 20 6f 6e 00 3b 20 53 | 74 61 6e 64 61 72 64 20 |d on.; S|tandard |
|00000070| 42 6c 69 74 7a 20 54 43 | 50 20 46 75 6e 63 74 69 |Blitz TC|P Functi|
|00000080| 6f 6e 73 20 56 31 2e 35 | 20 62 79 20 50 61 75 6c |ons V1.5| by Paul|
|00000090| 20 42 75 72 6b 65 79 20 | 28 63 29 31 39 39 37 00 | Burkey |(c)1997.|
|000000a0| 3b 20 43 6f 6d 70 69 6c | 65 64 20 77 69 74 68 20 |; Compil|ed with |
|000000b0| 68 65 6c 70 20 66 72 6f | 6d 20 45 72 63 6f 6c 65 |help fro|m Ercole|
|000000c0| 20 53 70 69 74 65 72 69 | 20 61 6e 64 20 41 6e 74 | Spiteri| and Ant|
|000000d0| 6f 6e 20 52 65 69 6e 61 | 75 65 72 00 3b 20 59 6f |on Reina|uer.; Yo|
|000000e0| 75 20 6d 75 73 74 20 68 | 61 76 65 20 74 68 65 20 |u must h|ave the |
|000000f0| 62 73 64 73 6f 63 6b 65 | 74 2e 6c 69 62 72 61 72 |bsdsocke|t.librar|
|00000100| 79 20 73 65 74 75 70 20 | 69 6e 20 42 6c 69 74 7a |y setup |in Blitz|
|00000110| 00 3b 20 20 20 62 79 20 | 41 6e 74 6f 6e 20 52 65 |.;   by |Anton Re|
|00000120| 69 6e 61 75 65 72 20 61 | 6e 74 6f 6e 40 77 77 2e |inauer a|nton@ww.|
|00000130| 63 6f 2e 6e 7a 00 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |co.nz.;-|--------|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 00 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--..;---|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000190| 2d 2d 2d 2d 2d 2d 00 3b | 20 53 74 61 6e 64 61 72 |------.;| Standar|
|000001a0| 64 20 55 44 50 20 42 6c | 69 74 7a 20 46 75 6e 63 |d UDP Bl|itz Func|
|000001b0| 74 69 6f 6e 73 00 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |tions.;-|--------|
|000001c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 2e 43 6f 6e 6e 65 |--------|...Conne|
|000001e0| 63 74 55 44 50 00 80 09 | 20 43 6f 6e 6e 65 63 74 |ctUDP...| Connect|
|000001f0| 55 44 50 7b 68 6f 73 74 | 24 2c 70 6f 72 74 2e 77 |UDP{host|$,port.w|
|00000200| 7d 00 20 20 80 15 20 73 | 6f 63 6b 2e 6c 2c 68 6f |}.  .. s|ock.l,ho|
|00000210| 73 74 28 29 2c 68 6f 73 | 74 6c 65 6e 28 29 2c 70 |st(),hos|tlen(),p|
|00000220| 6f 72 74 5f 75 73 65 64 | 2c 55 44 50 6d 65 6d 2e |ort_used|,UDPmem.|
|00000230| 6c 00 20 20 3b 00 20 20 | 3b 20 4f 70 65 6e 20 55 |l.  ;.  |; Open U|
|00000240| 44 50 20 73 6f 63 6b 65 | 74 20 61 6e 64 20 62 69 |DP socke|t and bi|
|00000250| 6e 64 20 69 74 20 74 6f | 20 61 20 70 6f 72 74 20 |nd it to| a port |
|00000260| 6e 75 6d 62 65 72 00 20 | 20 3b 20 52 65 74 75 72 |number. | ; Retur|
|00000270| 6e 20 74 72 75 65 20 6f | 72 20 46 61 6c 73 65 20 |n true o|r False |
|00000280| 69 66 20 73 75 63 63 65 | 73 73 66 75 6c 20 6f 72 |if succe|ssful or|
|00000290| 20 6e 6f 74 00 20 20 3b | 00 00 20 20 6c 69 62 2e | not.  ;|..  lib.|
|000002a0| 6c 3d fe cf 28 22 62 73 | 64 73 6f 63 6b 65 74 2e |l=..("bs|dsocket.|
|000002b0| 6c 69 62 72 61 72 79 22 | 2c 30 29 20 20 20 3b 20 |library"|,0)   ; |
|000002c0| 63 68 65 63 6b 20 74 6f | 20 73 65 65 20 69 66 20 |check to| see if |
|000002d0| 61 20 54 43 50 2f 49 50 | 20 73 74 61 63 6b 20 69 |a TCP/IP| stack i|
|000002e0| 73 20 72 75 6e 6e 69 6e | 67 00 20 20 80 0b 20 6c |s runnin|g.  .. l|
|000002f0| 69 62 3d 30 00 20 20 20 | 20 80 09 20 80 07 20 bc |ib=0.   | .. .. .|
|00000300| 0f 00 20 20 80 22 00 20 | 20 20 20 fe bb 28 6c 69 |..  .". |   ..(li|
|00000310| 62 29 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 63 |b)      |     ; c|
|00000320| 6c 6f 73 65 20 6c 69 62 | 20 61 67 61 69 6e 20 6f |lose lib| again o|
|00000330| 72 20 4d 69 61 6d 69 20 | 77 6f 6e 27 74 20 65 78 |r Miami |won't ex|
|00000340| 69 74 00 20 20 20 20 73 | 6f 63 6b 2e 6c 3d ec 81 |it.    s|ock.l=..|
|00000350| 28 32 2c 32 2c 30 29 20 | 20 20 20 20 20 20 20 3b |(2,2,0) |       ;|
|00000360| 20 6f 70 65 6e 20 55 44 | 50 20 73 6f 63 6b 65 74 | open UD|P socket|
|00000370| 00 20 20 20 20 80 0b 20 | 73 6f 63 6b 3d 2d 31 00 |.    .. |sock=-1.|
|00000380| 20 20 20 20 20 20 80 09 | 20 80 07 20 bc 0f 00 20 |      ..| .. ... |
|00000390| 20 20 20 80 22 00 20 20 | 20 20 20 20 20 20 2a 61 |   .".  |      *a|
|000003a0| 2e 68 6f 73 74 65 6e 74 | 3d ec 9f 28 68 6f 73 74 |.hostent|=..(host|
|000003b0| 24 29 20 20 20 20 20 3b | 20 73 65 74 20 75 70 20 |$)     ;| set up |
|000003c0| 64 65 73 74 69 6e 61 74 | 69 6f 6e 20 61 64 64 72 |destinat|ion addr|
|000003d0| 65 73 73 20 74 6f 20 73 | 65 6e 64 20 70 61 63 6b |ess to s|end pack|
|000003e0| 65 74 73 20 74 6f 00 20 | 20 20 20 20 20 20 20 80 |ets to. |       .|
|000003f0| 0b 20 2a 61 2e 68 6f 73 | 74 65 6e 74 3d 30 00 20 |. *a.hos|tent=0. |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 80 09 20 80 07 20 |        |  .. .. |
|00000410| bc 0f 00 20 20 20 20 20 | 20 20 20 80 c0 00 00 20 |...     |   .... |
|00000420| 20 20 20 20 20 20 20 3b | 43 6f 70 79 20 44 65 74 |       ;|Copy Det|
|00000430| 61 69 6c 73 20 74 6f 20 | 6f 75 72 20 53 6f 63 6b |ails to |our Sock|
|00000440| 61 64 64 72 69 6e 20 73 | 74 72 75 63 74 75 72 65 |addrin s|tructure|
|00000450| 00 00 20 20 20 20 20 20 | 20 20 62 62 3d fe db 28 |..      |  bb=..(|
|00000460| 2a 61 2e 68 6f 73 74 65 | 6e 74 5c 68 5f 61 64 64 |*a.hoste|nt\h_add|
|00000470| 72 5f 6c 69 73 74 5c 49 | 74 65 6d 41 2c 26 68 6f |r_list\I|temA,&ho|
|00000480| 73 74 28 30 29 5c 73 69 | 6e 5f 61 64 64 72 2c 2a |st(0)\si|n_addr,*|
|00000490| 61 2e 68 6f 73 74 65 6e | 74 5c 68 5f 6c 65 6e 67 |a.hosten|t\h_leng|
|000004a0| 74 68 29 00 00 20 20 20 | 20 20 20 20 20 68 6f 73 |th)..   |     hos|
|000004b0| 74 28 30 29 5c 73 69 6e | 5f 70 6f 72 74 3d 70 6f |t(0)\sin|_port=po|
|000004c0| 72 74 20 20 20 20 20 20 | 20 3b 53 65 74 20 70 6f |rt      | ;Set po|
|000004d0| 72 74 20 6e 75 6d 62 65 | 72 00 20 20 20 20 20 20 |rt numbe|r.      |
|000004e0| 20 20 68 6f 73 74 28 30 | 29 5c 73 69 6e 5f 66 61 |  host(0|)\sin_fa|
|000004f0| 6d 69 6c 79 3d 32 20 20 | 20 20 20 20 20 20 3b 53 |mily=2  |      ;S|
|00000500| 65 74 20 74 79 70 65 20 | 74 6f 20 41 54 5f 49 4e |et type |to AT_IN|
|00000510| 45 54 00 20 20 20 20 20 | 20 20 20 68 6f 73 74 6c |ET.     |   hostl|
|00000520| 65 6e 28 30 29 3d 80 2f | 2e 73 6f 63 6b 61 64 64 |en(0)=./|.sockadd|
|00000530| 72 69 6e 20 20 20 20 20 | 20 20 20 3b 47 65 74 20 |rin     |   ;Get |
|00000540| 6c 65 6e 67 74 68 20 6f | 66 20 73 74 72 75 63 74 |length o|f struct|
|00000550| 75 72 65 20 73 6f 63 6b | 61 64 64 72 69 6e 00 00 |ure sock|addrin..|
|00000560| 20 20 20 20 20 20 20 20 | 74 65 6d 70 3d 30 00 20 |        |temp=0. |
|00000570| 20 20 20 20 20 20 20 70 | 6f 72 74 5f 75 73 65 64 |       p|ort_used|
|00000580| 3d 70 6f 72 74 00 20 20 | 20 20 20 20 20 20 80 bb |=port.  |      ..|
|00000590| 00 20 20 20 20 20 20 20 | 20 20 20 68 6f 73 74 28 |.       |   host(|
|000005a0| 30 29 5c 73 69 6e 5f 70 | 6f 72 74 3d 70 6f 72 74 |0)\sin_p|ort=port|
|000005b0| 5f 75 73 65 64 20 20 3b | 20 66 6f 72 20 74 65 73 |_used  ;| for tes|
|000005c0| 74 69 6e 67 20 6f 6e 20 | 6c 6f 63 61 6c 68 6f 73 |ting on |localhos|
|000005d0| 74 2d 20 6b 65 65 70 20 | 74 72 79 69 6e 67 20 6f |t- keep |trying o|
|000005e0| 6e 65 20 70 6f 72 74 20 | 61 74 20 61 20 74 69 6d |ne port |at a tim|
|000005f0| 65 20 61 66 74 65 72 20 | 23 4c 4f 43 41 4c 50 4f |e after |#LOCALPO|
|00000600| 52 54 20 66 6f 72 00 20 | 20 20 20 20 20 20 20 20 |RT for. |        |
|00000610| 20 80 0b 20 ec 82 28 73 | 6f 63 6b 2c 68 6f 73 74 | .. ..(s|ock,host|
|00000620| 28 30 29 2c 68 6f 73 74 | 6c 65 6e 28 30 29 29 3d |(0),host|len(0))=|
|00000630| 30 20 20 20 20 3b 20 62 | 69 6e 64 20 73 6f 63 6b |0    ; b|ind sock|
|00000640| 65 74 20 74 6f 20 70 6f | 72 74 20 73 6f 20 77 65 |et to po|rt so we|
|00000650| 20 63 61 6e 00 20 20 20 | 20 20 20 20 20 20 20 20 | can.   |        |
|00000660| 20 80 09 20 80 07 20 bc | 0e 20 20 20 20 20 20 20 | .. .. .|.       |
|00000670| 20 20 20 20 3b 20 72 65 | 63 65 69 76 65 20 64 61 |    ; re|ceive da|
|00000680| 74 61 20 6f 6e 20 70 6f | 72 74 00 20 20 20 20 20 |ta on po|rt.     |
|00000690| 20 20 20 20 20 80 22 00 | 20 20 20 20 20 20 20 20 |     .".|        |
|000006a0| 20 20 20 20 70 6f 72 74 | 5f 75 73 65 64 2b 31 00 |    port|_used+1.|
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 74 65 6d 70 |        |    temp|
|000006c0| 2b 31 00 20 20 20 20 20 | 20 20 20 20 20 80 c0 00 |+1.     |     ...|
|000006d0| 20 20 20 20 20 20 20 20 | 80 bc 20 74 65 6d 70 3d |        |.. temp=|
|000006e0| 31 30 00 20 20 20 20 80 | c0 00 20 20 80 c0 00 20 |10.    .|..  ... |
|000006f0| 20 55 44 50 6d 65 6d 3d | a6 08 28 24 32 30 30 30 | UDPmem=|..($2000|
|00000700| 2c 30 29 20 20 3b 41 6c | 6c 6f 63 61 74 65 20 74 |,0)  ;Al|locate t|
|00000710| 65 6d 70 20 62 75 66 66 | 65 72 20 75 73 65 64 20 |emp buff|er used |
|00000720| 66 6f 72 20 61 6c 6c 20 | 55 44 50 20 72 65 61 64 |for all |UDP read|
|00000730| 73 00 80 02 20 80 09 00 | 00 2e 52 65 61 64 55 44 |s... ...|..ReadUD|
|00000740| 50 00 80 09 20 2e 73 20 | 52 65 61 64 55 44 50 7b |P... .s |ReadUDP{|
|00000750| 7d 00 20 20 80 15 20 73 | 6f 63 6b 2e 6c 2c 55 44 |}.  .. s|ock.l,UD|
|00000760| 50 6d 65 6d 2e 6c 2c 74 | 65 6d 70 68 6f 73 74 2c |Pmem.l,t|emphost,|
|00000770| 74 65 6d 70 68 6f 73 74 | 6c 65 6e 00 00 20 20 3b |temphost|len..  ;|
|00000780| 20 54 68 69 73 20 46 75 | 6e 63 74 69 6f 6e 20 72 | This Fu|nction r|
|00000790| 65 61 64 73 20 64 61 74 | 61 20 66 72 6f 6d 20 74 |eads dat|a from t|
|000007a0| 68 65 20 73 6f 63 6b 65 | 74 20 69 74 20 69 73 20 |he socke|t it is |
|000007b0| 62 6f 75 6e 64 20 74 6f | 2e 00 20 20 3b 20 49 66 |bound to|..  ; If|
|000007c0| 20 74 68 65 72 65 20 69 | 73 20 6e 6f 20 6d 65 73 | there i|s no mes|
|000007d0| 73 61 67 65 73 20 74 68 | 65 6e 20 69 74 20 77 69 |sages th|en it wi|
|000007e0| 6c 6c 20 72 65 74 75 72 | 6e 20 61 6e 20 65 6d 70 |ll retur|n an emp|
|000007f0| 74 79 20 73 74 72 69 6e | 67 20 3d 22 22 00 00 20 |ty strin|g ="".. |
|00000800| 20 73 6f 63 6b 72 65 61 | 64 2e 6c 3d 30 20 20 20 | sockrea|d.l=0   |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 3b 43 6c 65 61 |        |   ;Clea|
|00000830| 72 20 52 65 61 64 6d 61 | 73 6b 00 20 20 73 6f 63 |r Readma|sk.  soc|
|00000840| 6b 72 65 61 64 2e 6c 20 | 80 ce 20 73 6f 63 6b 2e |kread.l |.. sock.|
|00000850| 6c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |l       |        |
|00000860| 20 20 20 3b 53 65 74 20 | 52 65 61 64 6d 61 73 6b |   ;Set |Readmask|
|00000870| 20 6f 6e 20 6f 75 72 20 | 73 6f 63 6b 65 74 00 20 | on our |socket. |
|00000880| 20 65 3d ec 8f 28 73 6f | 63 6b 2e 6c 2c 23 46 49 | e=..(so|ck.l,#FI|
|00000890| 4f 4e 52 45 41 44 2c 55 | 44 50 6d 65 6d 2e 6c 29 |ONREAD,U|DPmem.l)|
|000008a0| 20 3b 48 6f 77 20 6d 75 | 63 68 20 64 61 74 61 20 | ;How mu|ch data |
|000008b0| 69 73 20 74 68 65 72 65 | 3f 00 20 20 66 2e 6c 3d |is there|?.  f.l=|
|000008c0| da 02 2e 6c 28 55 44 50 | 6d 65 6d 2e 6c 29 20 20 |...l(UDP|mem.l)  |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008e0| 20 20 20 20 3b 50 6c 61 | 63 65 20 76 61 6c 75 65 |    ;Pla|ce value|
|000008f0| 20 69 6e 20 66 00 00 20 | 20 80 0b 20 66 3e 30 20 | in f.. | .. f>0 |
|00000900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000920| 20 20 20 3b 20 61 6e 79 | 20 64 61 74 61 20 77 61 |   ; any| data wa|
|00000930| 69 74 69 6e 67 00 20 20 | 20 20 74 65 6d 70 68 6f |iting.  |  tempho|
|00000940| 73 74 6c 65 6e 3d 80 2f | 20 2e 73 6f 63 6b 61 64 |stlen=./| .sockad|
|00000950| 64 72 69 6e 00 20 20 20 | 20 63 3d ec 88 28 73 6f |drin.   | c=..(so|
|00000960| 63 6b 2e 6c 2c 55 44 50 | 6d 65 6d 2e 6c 2c 66 2c |ck.l,UDP|mem.l,f,|
|00000970| 30 2c 74 65 6d 70 68 6f | 73 74 2c 74 65 6d 70 68 |0,tempho|st,temph|
|00000980| 6f 73 74 6c 65 6e 29 20 | 20 3b 52 65 61 64 20 61 |ostlen) | ;Read a|
|00000990| 6c 6c 20 64 61 74 61 20 | 77 61 69 74 69 6e 67 20 |ll data |waiting |
|000009a0| 6f 6e 20 73 6f 63 6b 65 | 74 00 20 20 20 20 20 20 |on socke|t.      |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009e0| 20 20 20 20 20 3b 61 6e | 64 20 67 65 74 20 68 6f |     ;an|d get ho|
|000009f0| 73 74 20 69 74 20 77 61 | 73 20 73 65 6e 74 20 66 |st it wa|s sent f|
|00000a00| 72 6f 6d 20 69 6e 20 74 | 65 6d 70 68 6f 73 74 00 |rom in t|emphost.|
|00000a10| 20 20 20 20 80 0b 20 63 | 3e 30 20 20 20 20 3b 20 |    .. c|>0    ; |
|00000a20| 69 66 20 74 68 65 72 65 | 20 61 6e 79 20 64 61 74 |if there| any dat|
|00000a30| 61 20 77 61 69 74 69 6e | 67 00 20 20 20 20 20 20 |a waitin|g.      |
|00000a40| 20 20 61 3d 30 20 3a 20 | 63 24 3d 22 22 00 20 20 |  a=0 : |c$="".  |
|00000a50| 20 20 20 20 20 20 80 bb | 00 20 20 20 20 20 20 20 |      ..|.       |
|00000a60| 20 20 20 20 20 63 24 3d | 63 24 2b dc 86 28 da 02 |     c$=|c$+..(..|
|00000a70| 2e 62 28 55 44 50 6d 65 | 6d 2b 61 29 29 20 3a 20 |.b(UDPme|m+a)) : |
|00000a80| 61 2b 31 20 20 20 20 3b | 20 62 75 69 6c 64 20 73 |a+1    ;| build s|
|00000a90| 74 72 69 6e 67 00 20 20 | 20 20 20 20 20 20 80 bc |tring.  |      ..|
|00000aa0| 20 61 3d 63 00 20 20 20 | 20 80 c0 00 00 20 20 80 | a=c.   | ....  .|
|00000ab0| c0 00 00 20 20 80 09 20 | 80 07 20 63 24 00 80 02 |...  .. |.. c$...|
|00000ac0| 20 80 09 00 00 2e 57 72 | 69 74 65 55 44 50 00 80 | .....Wr|iteUDP..|
|00000ad0| 08 20 57 72 69 74 65 55 | 44 50 7b 61 64 2e 6c 2c |. WriteU|DP{ad.l,|
|00000ae0| 73 69 7a 65 2e 77 2c 70 | 6c 61 79 65 72 7d 00 20 |size.w,p|layer}. |
|00000af0| 20 80 15 20 73 6f 63 6b | 2e 6c 2c 68 6f 73 74 28 | .. sock|.l,host(|
|00000b00| 29 2c 68 6f 73 74 6c 65 | 6e 28 29 2c 74 65 6d 70 |),hostle|n(),temp|
|00000b10| 68 6f 73 74 2c 74 65 6d | 70 68 6f 73 74 6c 65 6e |host,tem|phostlen|
|00000b20| 00 00 20 20 3b 20 54 68 | 69 73 20 72 6f 75 74 69 |..  ; Th|is routi|
|00000b30| 6e 65 20 77 72 69 74 65 | 73 20 64 61 74 61 20 76 |ne write|s data v|
|00000b40| 69 61 20 55 44 50 00 00 | 20 20 73 6f 63 6b 77 72 |ia UDP..|  sockwr|
|00000b50| 69 74 65 2e 6c 3d 30 20 | 20 20 20 20 20 20 20 20 |ite.l=0 |        |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b70| 3b 43 6c 65 61 72 20 57 | 72 69 74 65 6d 61 73 6b |;Clear W|ritemask|
|00000b80| 00 20 20 73 6f 63 6b 77 | 72 69 74 65 2e 6c 20 80 |.  sockw|rite.l .|
|00000b90| ce 20 73 6f 63 6b 2e 6c | 20 20 20 20 20 20 20 20 |. sock.l|        |
|00000ba0| 20 20 20 20 20 3b 73 65 | 74 20 57 72 69 74 65 6d |     ;se|t Writem|
|00000bb0| 61 73 6b 20 6f 6e 20 6f | 75 72 20 73 6f 63 6b 65 |ask on o|ur socke|
|00000bc0| 74 00 20 20 67 3d ec 91 | 28 32 2c 30 2c 26 73 6f |t.  g=..|(2,0,&so|
|00000bd0| 63 6b 77 72 69 74 65 2e | 6c 2c 30 2c 30 2c 30 29 |ckwrite.|l,0,0,0)|
|00000be0| 20 3b 57 61 69 74 20 75 | 6e 74 69 6c 20 73 65 72 | ;Wait u|ntil ser|
|00000bf0| 76 65 72 20 69 73 20 72 | 65 61 64 79 20 74 6f 20 |ver is r|eady to |
|00000c00| 72 65 61 64 20 6f 75 72 | 20 64 61 74 61 00 00 20 |read our| data.. |
|00000c10| 20 80 0b 20 70 6c 61 79 | 65 72 3e 30 00 20 20 20 | .. play|er>0.   |
|00000c20| 20 63 3d ec 86 28 73 6f | 63 6b 2e 6c 2c 61 64 2c | c=..(so|ck.l,ad,|
|00000c30| 73 69 7a 65 2c 30 2c 68 | 6f 73 74 28 70 6c 61 79 |size,0,h|ost(play|
|00000c40| 65 72 29 2c 68 6f 73 74 | 6c 65 6e 28 70 6c 61 79 |er),host|len(play|
|00000c50| 65 72 29 29 20 20 20 20 | 3b 53 65 6e 64 20 64 61 |er))    |;Send da|
|00000c60| 74 61 20 74 6f 20 6f 6e | 6c 69 6e 65 20 68 6f 73 |ta to on|line hos|
|00000c70| 74 00 20 20 80 22 00 20 | 20 20 20 63 3d ec 86 28 |t.  .". |   c=..(|
|00000c80| 73 6f 63 6b 2e 6c 2c 61 | 64 2c 73 69 7a 65 2c 30 |sock.l,a|d,size,0|
|00000c90| 2c 74 65 6d 70 68 6f 73 | 74 2c 74 65 6d 70 68 6f |,temphos|t,tempho|
|00000ca0| 73 74 6c 65 6e 29 20 20 | 20 20 20 20 20 20 20 20 |stlen)  |        |
|00000cb0| 20 20 3b 53 65 6e 64 20 | 64 61 74 61 20 74 6f 20 |  ;Send |data to |
|00000cc0| 68 6f 73 74 20 74 68 61 | 74 27 73 20 6e 6f 74 20 |host tha|t's not |
|00000cd0| 63 6f 6e 6e 65 63 74 65 | 64 00 20 20 80 c0 00 80 |connecte|d.  ....|
|00000ce0| 02 20 80 08 00 00 2e 43 | 6c 6f 73 65 55 44 50 00 |. .....C|loseUDP.|
|00000cf0| 80 08 20 43 6c 6f 73 65 | 55 44 50 7b 7d 00 20 20 |.. Close|UDP{}.  |
|00000d00| 80 15 20 55 44 50 6d 65 | 6d 2e 6c 2c 73 6f 63 6b |.. UDPme|m.l,sock|
|00000d10| 2e 6c 00 20 20 a6 09 20 | 55 44 50 6d 65 6d 2c 24 |.l.  .. |UDPmem,$|
|00000d20| 32 30 30 30 20 20 20 3b | 20 66 72 65 65 20 62 75 |2000   ;| free bu|
|00000d30| 66 66 65 72 00 20 20 ec | 90 28 73 6f 63 6b 29 00 |ffer.  .|.(sock).|
|00000d40| 80 02 20 80 08 00 00 00 |                         |.. .....|        |
+--------+-------------------------+-------------------------+--------+--------+